home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / STDWIN.LSP < prev    next >
Text File  |  1994-02-05  |  284b  |  15 lines
  1. ;; STDWIN-Paket
  2. ;; Bruno Haible 29.8.1993
  3.  
  4. (in-package "STDWIN" :use '("LISP"))
  5.  
  6. (defmacro drawing (window &body body)
  7.   (let ((w (gensym)))
  8.     `(LET ((,w ,window))
  9.        (BEGIN-DRAWING ,w)
  10.        (UNWIND-PROTECT (PROGN ,@body)
  11.          (END-DRAWING ,w)
  12.      ) )
  13. ) )
  14.  
  15.